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MISCELLANEOUS NOTES 

Welcome to the fourth issue of this newsletter. I am happy to 
say that material has been pouring in every day, and that the fu- 
ture looks very bright. This is not to say that all is perfect 
however, and I hope you will excuse my lateness in getting around 
to some things, such as answering your mail. School and college 
life in general is taking up a good chunk of my time. 

Ron Miranda (5812*5 Pine Ave., Maywood, CA, 90270) is now 
forming a Sorcerer users group in the southern California area. 
The first meeting was held at the Hawthorne store of Computer Com- 
ponents of South Bay (15818 Hawthorne Blvd., Lawndale, CA) on Mon- 
day, September 24. For more information, get in touch with Ron at 
the above address or call him at (213) -771-0276. 

Individuals may advertise in The Sorcerer's Apprentice for 
non comercial items (used equipment, etc.) for $1.00 per type- 
written line. Commercial rates are $30.00 for a full page, $18.00 
for a half page, or $10.00 for a quarter page or fraction thereof. 

Steve Long is still putting out his fine newsletter. The latest 
issue, his tenth, includes a 2 hex character search routine that can 
be used in conjunction with the monitor. Send Steve an SASE at 792 
Laurie Ave., Santa Clara, CA, 95050 for subscription information. 

Several people closer to the Michigan area have expressed an 
interest in having group meetings. Newman Computer Exchange here 
in Ann Arbor has offered the use of their store facilities on the 
second and fourth Thursdays of every month at 5:30 pm (they close 
at 7:00). If possible, I would like to arrange for meetings once 
a month, and I'd like to hear from interested people. Although 
no date is set as of yet, I would like to shoot for the 11th of 
October as a possible first meeting. Naturally, this will only 
take place if enough interested people let me know that they will 
be attending. If you can make it, let me know sooni 



The Sorcerer's Apprentice is published every month and a half by 
Dave Bristor, 1530 Washtenaw, Ann Arbor, MI, 48104, For free 
copies of the current issue and subscription information send a 
self -addressed, stamped envelope. Back issues are available for 
75<: (no coin or stamps) each. I am usually home between 5 and 6 
pm; if you wish to call me (313-663-7830) try to make it then. 
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John Palevich (6200 Swords Way, Bethesda, MD, 20034) has had 
some success producing music on his Sorcerer: 

"The obvious, cheap way to produce music on a Sorcerer is to 
wire an 8-ohm speaker between ground and any of the 8 bits of 
the parallel output port. This speaker will click whenever the 
bit it is connected to changes from a to a 1 or from a 1 to a 0. 
For instance, ^^ print "SORCERERS CAN BUZZ." 

20 OUT 255,0 
30 OUT 255,255 
40 GOTO 20 
will produce a low pitched buzz. Any random hacker can expand thiL 
into a music program by some judicious machine language programming. 
Even I did it. Unfortunately, I have just moved to college and my 
computer will not catch up with me for several weeks. 

"Anyway, there are two disadvantages to the click method of mu- 
sic synthesis. First, the quality of the music is laughable, and 
second, you can only synthesize one voice at a time (like playing 
the piano with only one finger). 

"A far better technique is to connect an 8-bit D/A converter to 
the output port of the Sorcerer. I bought the K1002 8-bit Audio 
Digital to Analog Converter from Micro Technology Unlimited (841 
Galaxy Way, PO Box 4596, Manchester, NH, 03108) for about $40.00. 
One has to solder ten wires between a 22 pin connector and an 
RS-232 connector, total cost about $50.00. One "minor" catch is 
that you must write all the software yourself, but an article in the 
August 1977 Byte explains exactly how to do it. I have, using that 
article, the board, a Sorcerer, a small speaker and my native in- 
telligence, concocted a beautiful program that simulates a 4 voice 
(4 different notes at once) Hammond-type electronic organ. (This 
really beats the Apple demo programs 1) When I use the graphics to 
produce staff displays, I'll really have something." 

Tom Bassett (253 Franconian Dr. W., Frankenmuth, MI, 48734) has 
made some excellent modifications to the database management program 
that appeared in the last issue. Both versions will be available 
from the software exchange (more about that later). Tom's additions 
include a delete option, and a more advanced method of changing the 
inputs and outputs that does not resort to any machine language 
routines. Tom also has passed along an amortization program and 
a program to aid the monetarily incompetent (such as myself) in 
balancing their checkbooks. Both of these latter two are rather 
long and will not be published, but will be available from the 
software exchange. 

Software is finally appearing for the Sorcerer. I will be 
sending letters to all of them about advertising and the posi- 
bilities of doing reviews. Here are the ones I know of at the 
present: 

CHB Software (1026 W. 26th St., San Pedro, CA, 90731) is pro- 
ducing some programs under license from Creative Computincr : Slot 
Machine goes for $9.95; the Super Star Trek form 101 Basic Games 
is available for $14.95. Both are available for the package price 
of $21.50 



Adventure International (Box 3435, Dept. X, Longwood, FL, 
32750) is producing their popular Adventure game for the Sor- 
cerer for $14.95. A friend has a copy of the tape, but has had 
loading problems. The folks at A.I, have been very cooperative 
and are sending a copy at 300 baud. I have played Adventure on 
some of the larger computers here on campus, and can easily say 
that it is one of the best computer games I've come across. 

Northamerican Software (Box 1173, Stn. 'B', Downsview, Ontario, 
Canada, M3H 5V6) has 3 programs for sale: Stranded in Deep Space 
($14.95), Programmable Graphic Scratch Pad ($9.95), and Know 
Your Sorcerer (part 1-8K, $7.95). They are available separately 
or for the package price of $29,95. Send a certified check or 
money order only. 

PROGRAM EXCHANGE GETS UNDERWAY 

Finally, no more typing and typing and debugging, etc., of 
lines of code to play your favorite game. Software listed in 
this newsletter is available on tape from Ralph G. Ruh, 623 Medill 
Ave-, Lancaster, OH, 43130. Programs (cassettes only) can be ex- 
changed on a 1 for 1 basis, or for the price of $2.00 for the 
first program and $1.00 for each additional program on the same 
tape. A minimum of 4 and a maximum of 6 programs per tape needs to 
be enforced to offset the cost of the tape and postage. Programs 
will be recorded twice at each baud rate. Here is the currently 
available software: 



CATALOG NUMBER 



NAME 


FILE NAME 


DESCRIPTION 


AMLOG 


AMLOG 


AMATEUR RADIO LOG 
BOOK KEEPER 


ZAP 


ZAP 


ROBOTS GAME 


ACCOUNTS 


ACNTS 


RECORDS HOUSEHOLD 
ACCOUNTS 


BILLIARDS 


BLRDS 


BUMPER POOL GAME 


ALIEN 


ALIEN 


CAPTURE GAME 


WAMPUS 


WAMPS 


GAME 


RACETRACK 


RACET 


HORSE RACING GAME 


JOUST 


JOUST 


JOUSTING GAME 


LUNAR 


LUNAR 


LUNAR LANDING GAME 



SOOl 

S002 
S003 

S004 
S005 
S006 
S007 
S008 
S009 



Please use the catalog numbers when ordering. Some programs that 
appeared in earlier issues of the Apprentice have not been listed 
here because I just got the tape of the off to Ralph, but they 
should be available by the time the next issue comes out. If you 
have programs to donate to the exchange send them directly to 
Ralph; if you have relatively short progams that you would like 
published send them to me and I will forward them to Ralph, Re- 
member, this is your group, and the more you can put into it, the 
more you will be able to get out. In the future, an updated list 
of available programs will be printed each issue, similar to the 
above, but the author's name will also be included. Also, we have 
still not resolved the copyright dilema, so some programs are going 
to have to stay shelved until we figure out a solution. 



RENUMBERING PROGRAMS From Devin Trussell, Australia 

"This program must be appended to the program which is being 
renumbered (see the last issue for this trick). It is executed 
by 'RUN 63000*. The program is based on "Line Renumbering on the 
PET" which appeared in the March, 1979 issue of Personal Computing. 
In addition, 3 enhancements have been made: 

-"THEN GOTO" statement sequences are correctly handled. 

- The increment form one line number to the next is user 
specified. 

- The beginning line number is user specified. 

The latter enhancement enables mutually exclusive line numbers to 
be given to two programs. This is a prerequisite for splicing 
programs (see Program Merging in the August issue) . There are 
two main restrictions on the program: 

1 -r only 256 line numbers can be handled. This can be altered 

by changing the dimension on OL in line 63010. 

2 - The line number increment from one line to the next must 

be less than 256. 

"An outline of the program follows. A modest familiarity with 
hexadecimal numbers on the part of the reader is assumed. 

"OL is an array containing the oik line numbers. The nth element 
is the nth line n\imber in the original program. OM is the index on 
array OL. The final value of OM is the total number of lines cor- 
rected (see line 63510) . NH and NL are the high and low order bytes 
respectively of the new line nxunbers. Al and Ah are the low and 
high order bytes respectively of the hexadecimal address of the be- 
ginning ot the next line in the program. They are initialized as 213 
and 1 (which is 0D15), AD (see line 63020) is the decimal value of 
AH and AIi. The second (LL) and third (LH) address following AD 
contain the low and high order bytes of the current line number. 

"Lines 63000-63019 are program initialization. In lines 63020- 
63070 the old line numbers of the program are changed to the 
desired new values. By means of a table look up (see line 63800), 
the internal references (ie numbers following THEN (ASCII 162), 
GOTO (ASCII 137) and GOSUB (ASCII 141) statements) are corrected 
in lines 63500 to 63890. The program will give a "NO ROOM" mes- 
sage (see line 63830) if there is insufficient space to insert the 
new internal line numbers. The solution is then to manually cor- 
rect the lines so affected. In most cases this chore can be a- 
voided if one or two spaces are inserted ahead of all internal 
line numbers when the original program is composed. The program 
will give a "COULDN'T FIND" message if an internal line number 
reference in the original program cannot be matched with an ori- 
ginal line number. Note that II is used to specify the line 
number increment. It should not be confused with the nximber 
eleven. II occurs in lines 63019, 63050, and 63820. 

Tine 
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LIST 

63000 

63010 

63015 

63017 

63019 

' 63020 

63030 

63040 

63050 

.63060 

63070 

63500 

63510 

63520 

63530 

63540 

63550 

63560 

63565 

63570 

63580 

63590 

63600 

63610 

63700 

63800 

63810 

63820 

63830 

63840 

63850 

63860 

63870 

63890 

READY 



REH RENUMBER PROGRAM 

DIM ol(255):om^o:al=-213:ah^i 

INPUT "NEW LINE NUMBERS BEGIN AT"»ZZ 

NH^INT( ZZ/256 ):NL=^ZZ-NH*:256 

INPUT -LINE NUMBER INCREMENT IS"? II 

AD:-256S>AH4AL: LL^PEEK( AIH2 ): LH-PEEK(AB^3): 0L^256*LH+LL 

IF 0L=63000 GOTO 63500 

OL<OM)= ol:om=om+i 

P0KEAD+2,NL:POKEAD-f3»NH;NL--NL-{Ii:iFNL>255TKENNL^NL-256:NM^NH+l 
IF 0M>255 GOTO 63500 

al^peek<ad):ah-peek(ad+i):goto 63020 

rem line numbers altered. internal references now changed 

print ompline numbers corrected"! om^-oh-i: l^46s 

L=L+4:LN=^256*PEEK(LHPEEK(L-1):IF LN^63000 THEN PRINTTINISIO" :CND 
L=L+i:CH=PEEI«L):iF CH=0 THEN 63520 

IF (CH<>137)AND(CH<>141)AND(CH<>162) THEN 63530 

LO=L 

L=L+1 :CH^PEEK( L >:ir( CH^137 )0R( CH^Hl )THEN63550 

IF CH=32 THEN 63560 



iC> THEN GOSUB 63700: GOTO 63560 



IF (CH>47) AND ( CH< 

IF N$=-"THEN 63530 

IF CH=44 THEN GOSUB 63800: GOTO 63550 

GOSUB 63800: IF CH-0 THEN 63520 

GOTO 63530 

N=CH-46: N$=Ni+RIGHTf<STR$(N)»l ):RCTURN 

J=-i: N=^VAL<N$): FOR 1:^0 TO uM: irOLa)^NTHENJ^i:i:^OM 

NEXTi:iFJ=-lTHENPRINT"COULliNT FIND LINE t-JNT'lN TABLE" :GaT063890 

NL=Il5t;J+ZZ:NLt^STRt(NL):NL*^RlGHTt(NLt»LEN(NL$)-l) 

IFLEN( NL$ »( L-LO-1 )THENPRINT"NO RuOM TO RLPLACE" JN^'WITH" JNL:GOTC63S90 

IF LEN(NLi)<(L-LO-l) THEN NLtM^Lt-l" ":G0T0 63040 

FOR i=LO+i tol-i:n$=mid$(nl$,i-lo»i):n=-val(n^)uc:pokei»n 

IF N$=" " THEN P0KEIf32 
NEXT I 

n$=^"-: return . . ^ 

. . . DT 
DEAR MOTHER ITS A BUQ.*.* 



In our last issue, an article appeared which described how to 
recover from the loss of a program due to accidentally entering 
NEW or CLOikD.*.* well, a few lines got left out, not to mention 
a listing. .tslgh,. .just like In the big magazine So However, if 
you turn now to page 13 (what else?) of the last issue, you will 
see, about three and a bit lines up from the end, the words". .are 
Entered in 1D6»" Insert here the following texti- 

"Havlng done this, it is necessary to restore the end- of -program 
pointer, which is located at 1B7 and 1B8. The address to be 
entered in these two bytes is that of the first byte following 
the zeroes that appear in memory following the last line of the 
progBam. The least significant byte goes into 1B7, and the most 
significant into 1B8»* 

cvre 
•••Incidentally further details of this operation ^ to be found 
in paragraph 6 on page 7 of the same issue , relating to linking 
progr«ra«- 
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Ihls Is good stuff If you want to reproduce characters la 
largo sizes, because It gives you the character formation 
patterns without having to re-generate themr-*- 

Evei^ character is stored as a pattern of eight consequtivo 
bytes In ROM or In the special user definable character RAM* 

-The expression for Y finds the address of the top line of the 
character (actually the address is -Y). The routine then looks 
at that, and the next seven bytes in memory, and prints them 
out* The bit pattern of these bytes form the shape of the 
character displayed* 

10 INPUT"ENT2R CHARACTER ••;A;j( 

20 Y=2048-9*-ASC(a;^} 

30 PRINT"THE TOP LINE ADDP:E3S IS ";-Y 

4 FOR XaY TO (Y-7) STEP -1 

50 PRINT PEEK(-X) 

60 NEXT 

70 GOTO 10 

To user-define characters from BASIC , select your key top, 
use the above routine to find the addresses of the eight 
bytes of the GRAPHIC/SHIFT character you are going to define* 
Then POKE the decljnal values of the bytes requirea to make 
your bit pattern. Into each location in turn* In a program, 
a DATA line and a READ in a loop very like the one in the 
program above will do the trick* 

The "chunky graphics" routine in this issue can be used to 

^^/^,^,* A^^^® Z^^^**^^®'*^ ^3^^S wiiole character blocks instead 
of little dots* 

...IM 

A «*Af Kail 1*1 



CHUNKY GRAPHICS 

The following subroutine's) allow the equivalent of the 
TRS80 SET and RESET commands. 

The horizontal axis allows X values from 1 to 64* 
The vertical axis allows values from Y=l to Y=30. 
To SET...GOSUB 990 
To RESET. ..GOSUB 1000 

990 2=177iG0T0 1010 

1000 1=32 

1010 P=3969-X.((Y-1>»^d4) 

1020 P0KE-?,Z 

1030 RETURN 

In your program, establish the values of X anlY and call 
the subroutine, which can be renumbered to suit yourself* 

. . . IM 
ZUctt^ McMillan 
/i-ns4y-«i It'll 



THE WORD PROCESSING CORNER 

This column is an experiment. If the readers like it, 
I will keep it going — if not, you are reading the first and 
last production. 

What I propose for this corner is to provide informa- 
tion about the Exidy Word Processor. "Well", you say, "I can 
get that by reading the manual." Possibly, but we have had 
the EXWP going in our law office since the first EPROM's came 
out in June. We have been working with it about 200 hours per 
month. As you can imagine, we have gotten good at it. 

This column proposes to be a combination of a) explana- 
tions of the various functions of the system (including a few 
tricks you won't find in the manual; b) question answering for 
any of the readers who are having problems and c) swap of in- 
formation. 

The processor has programming capabilities and it is 
not overdoing it to say that a "club" of users who have written 
or want to write macro programs for the EXWP would be a use- 
ful thing. As an example, here is a dandy little tape verifica- 
tion routine: 

Suppose you have a 32K Exidy and you are going to put 
together, from scratch, a document of about 25,000 characters, 
and you have no motor control for your cassette. You have been 
slaving over this opus since dawn and now it is getting late 
and you have to get it on tape. The trouble is, you've got 
a) a cassette that every once in a while puts a little garbage 
on your tape or b) a joker on the floor below you who sometimes 
turns on a static producing defective electric razor which 
you cannot hear when he does it. You cannot load and unload 
this much text in the holding buffer while you check the tape 
because it will empty itself when the memory overloads. About 
all there is left is to record it in two or three dumps and 
pray that one of them is okay. 

Instead, try this: record the text in the usual way 
by typing "w/c2" on the COMAMID line and then CR. When the 
program asks for "#/FILE NAME", type "1/", followed by CR. 
(I am assuming that your tape unit is set up as unit 1.) When 
the tape is recorded and with the text still in the computer, 
bring it back like so: type "100 R5/D20" and then CR. Turn 
on the tape. The processor will read tape five lines at a time 
and then delete what it has read. (Remember, a read automatically 
comes in at the bottom of text so it will not affect what is 
already there.) If there is a glitch on the tape, you will 
get "DEVICE ERROR" before the read is complete so you know you 
have to write the tape again. If the tape is okay, there will 
be a complete read and then "END OF FILE" and a request for a 
file name. You ignore that and press the escape key which will 
return control of the text to you. 
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Setting Monitor Parameters from BASIC 

'The monitor parameters set the display speed, B^ud rate, 
tape header Information, and select the input and output 
ports that are to be used by the programs running on the 
machine* 

The*selectlon of Input or Output portals somewhat misleading 
because what actually happens la that the routine In monitor 
that accesses the port In question Is called* When or I are 
set to an address (XXjul) It means that you have to provide, at 
that address, a machine language routine that will look after 
ifchatever device you have In mind* 

In order to set the parameters from BASIC, one or two bytes 
have to be POKEd Into the appropriate locations In monitor 
RAM, which Is located at the top of memory* The actual add- 
resses depend on the amount of memory In the system, so that 
the following tabulates In terms of 8,16 and 32 Kilobytes • 

l* SEt 3=XX>. to set video display rate 

8K 16K 32iC 

POKE to 255 Into,,. HT? 16336 32715 

Kotes Is fast, 255 Is slow* 

2*SEt T^X.o.set Baud rate. 

POKE 64 for 1200 Baud, POKE for 300... 8142 16334 32718 

S.SEt FF=XX. . .to set file type(ln tape header} to XX 

POKE to 255 Into 8158 16350 32734 

KotejBASIC will only load file typesBO to BP 
File type DS will not auto e:cecute. 

4.SEt X=VYvy,» . .set auto-execute address in tape header 

POKE decimal equivalent of desired program starting addreas 
bytes , YYln H , y y in L 8163/4 163oo/6 3273^ 40 

Notej Some uncertainty with this one* L H L ^4 i- M 

5* Selecting Output Port 

Pairs of bytes are POKED Into two addresses $- 

8K. . .8144 , 8145 16K. . . 16336, 16337 32K. . . 32720, 32721 

The bytes to be poked, in the same order as the addresses, above 

are as followsj- 

SEt 0=^7 (video) 27 and 224 

0«P (parlot) 33 and 224 (parralel output) 

0=L (ce.dvr) 147 and 233 (Centronics Printer) 

0=S (outape) 18 and 224 (tape output) 

0=XXxx XX and XX (address of special output routine) 

Note J XX is the decimal equivalent of the most significant 
byte, and xx is that of the least significant byte. 



It is a lot cheaper than a disk system. 

Here is another piece of information: you can get a set of 
replacement keys for the touch pad which have the editing 
commands engraved on them. Very handy if you are not the kind 
who remembers where they all are. A complete set, including 
the arrows, can be obtained from ARKAY Engravers, Inc., 207 3 
Newbridge Road, Bellmore, New York 11710 for $9.50 or $6.50 
without the arrows, both post paid. The keys are engraved 
with the standard editing commands for the word processor 
and come in red, black, beige, blue or gray. This is also a 
good opportunity for someone who wants to get some special 
keys made up for the main keyboard. 

If you want this fledgling column to continue write to David 
Bristor and maybe it will be back next month. 



STEVEN GURALNICK 

Attorney at Law 

15 South gate Avenue, Suite 246 

Daly City, California 94015 

Telephone: (415) 992-9200 

6* Selecting Input Port 

Pairs or bytes are POKEd into two addressesj- 

8K. .•8146,8147 16K, •,.16338, 16339 32KV. . 32722, 32723 

The bytes to be poked, in the same order as the addresses arej 

Set 1=K (keybrd) 28 and 236 

I=P (parlln) 118 and 231 

I=S (In tape) 218 and 226 
I=XXxx XX and XX 

Note I I repeat the point that these are the addresses of 
routines, not ports* 

I hope that this InTormatlon will be useful, but must point 
out that much of it is untried, and has been derived from 
study of monitor dls-assembllesf and may contain errors of 
detail, or calculation. I would be greatly obliged if any 
such errors were broght to my attention. 

Example of usa^e 

20 P0KE32719,100 

30 HEM SLOWS PRINTING SPEED ON SCru:.EN ^ 

40 P0KE16336,l47:P0i:E16337,233 ? 

60 KEM MAKES THE CUhRENT OUTPUT Puhl CiNThOMCS 



The Technic Guide to 

Assembler Languagi 

Many computer engineers have discovered a definite laclc of computational power in most modern machines. Often ( 
simple command could eliminate large, bulky routines. A number of fellow engineers have proposed the following list 
"additional" commands that (we feel) would tremendously expand the scope and power of the typical computer. Th 
instructions are given with easy-to-remember mnemonics for quick addition to a macrolibrary or instruction set. 



AAC Alter All Commands 

AAR Alter At Random 

AB Add Backwards 

AFVC Add Finagle's Variable Constant 

AIB Attack Innocent Bystander 

AWTT Assemble with Tinker Toys 
BAC Branch to Alpha Centauri 
BAF Blow All Fuses 
BCIL Branch Creating Infinite Loop 
BDC Break Down and Cry 

BF Belch Five 
BDT Burn Data Tree 
BW Branch on Whim 
CBNC Close, But No Cigar 
CH Create Havoc 

CMD Compare Meaningless Data 

CML Compute Meaning of Life 

CNB Cause Nervous Breakdown 

CO LB Crash for Operator's Lunch Break 

CRASH Continue Running After Stop or Halt 

CS Crash System 

CSL Curse and Swear Loudly 

CVG Convert to Garbage 

DBZ Divide ^y Zero 

DDC Dally During Calculations 

DMPE Decide to Major in Phys. Ed. 
DOC Drive Operator Crazy 

DLN Don't Look Now 

DPMI Declare Programmer Mentally incompetent 
DPR Destroy Program 

DTC Destroy This Command 

DTVFL Destroy Third Variable From Left 

DW Destroy World 

ECO Electrocute Computer Operator 

EIAO Execute in Any Order 

ENF Emit Noxious Fumes 
EP Execute Programmer 



FLI Flash Lights Impressively 
FSM Fold, Spindle, and Mutilate 
GCAR Get Correct Answer Regardless 

GDP Grin Defiantly at Programmer 
HCF Halt jnd Catch Fire 
HCP Hide Central Processor 
ISC Insert Sarcastic Comments 
JTZ Jump to Twilight Zone 

LAP Laugh at Program{mer) 
LPA Lead Programmer Astray 
MAZ Multiply Answer by Zero 
MW Malfunction Whenever 
MWT Malfunction Without Telling 

OML Obey Murphey's Laws 

PEHC Punch Extra Holes in Cards 

PNRP Print Nasty Replies to Programmer 

RA Randomize Answer 

RCB Read Commands Backwards 

RDA Refuse to Disclose Answer 
RLI Rotate Left Indefinitely 
RPM Read Programmer's Mind 
RRSGWSSNK Round and Round She Goes, 

Where She Stops, Nobody Knows 
SAI Skip All Instructions 

SCCA Short Circuit on Correct Answer 

SFH Set Flags to Half-mast 

SFT Stall for Time 

SOS Sign Off, Stupid 

SRDR Shift Right, Double Ridiculous 

TARC Take Arithmetic Review Course 

TLO Turn Indicator Lights Off 

TN Take a Nap 

TPDH Tell Programmer to Do it Him/Herself 

TTA Try, Try Again 

UP Understand Program 

WSWW Work in Strange and Wondrous Ways 



lo 



10 CLEAR 2000 

20 REM *** ALLOW A GENEROUS AMOUNT OF STRING SPACE 

30 REM *** PROGRAM BY TONY AUGUST 

^0 PRINT TAB(lZf)"A SIMPLE PATTERN GENERATION PROGRAM" 

50 PRINT: PRINT: PRINT 

60 PRINT; TAB( 10) "THIS PROGAM WILL GENERATE MANY INTERESTING" 
70 PRINT 

80 PRINT TAB(10)"AND UNSUAL PATTERNS. THE USER MAY ENTER 5" 
90 PRINT 

100 PRINT TAB( 10) "LINES OF Gk CHARACTERS EACH MIXED WITH " 
110 PRINT 

120 PRINT TAB( 10) "LETTERS, NUMBERS, EXIDY SORCERER GRAPHICS," 

130 PRINT ' 

140 PRINT TAB(10)"0R USER DEFINED GRAPHICS. ANY THING" 

130 PRINT 

160 PRINT TAB( 10) "WHICH CAN BE PLACED ON THE SCREEN WILL BE" 
170 PRINT 

180 PRINT TAB( 10) "INTERWOVEN INTO AN UNSUAL VIEDO DISPLAY." 
190 PRINT 

200 PRINT TAB (10) "TO » REPLAY* THE PREVIOUSLY GENERATED PATTERN" 

210 PRINT 

220 PRINT TAB( 10) "PRESS THE RETURN KEY." 

230 PRINT 

300 INPUT AS, BS, CS, m, El 

310 IF AS=" " THEN 700 

" THEN 700 

" THEN 700 

" THEN 700 

" THEN 700 
360 REM *** SPACE BETWEEN QUOTES IN ABOVE IS NOT IMPORTANT 
700 FOR X=l to Gk 
710 PRINT AS" " 
720 PRINT BS' 
730 PRINT CS' 
740 PRINT DS« 
730 PRINT ES' , 
760 REM *^* MAKE CERTIAN THAT THE SEMICOLON IS IN THE ABOVE 3 LINES 
770 NEXT 

780 PRINT: PRINT: PRINT 

790 PRINT "ENTER YOUR NEXT »SEED» PATTERN" 
800 PRINT 
810 GOTO 300 



320 IF BS= 
330 IF CS= 
340 IF DS= 
330 IF ES= 



II. 

II. 

9 
II . 

9 
II 



±1 



(WDffCVO) 

1 PRINT CHR$(12) 

2 GOSUB 300 

3 PRINT TAB(10);"/W;/^TEUR RADIO LOG-AMLOG" 
U PRINT TAB(IO);" BY RALPH G. RIJH" 

5 PRINT TAB(IO);" LANCASTER, OHIO" 

7 DIM A$(150),N$(150),B$(150),C$(150),D$(150) 

8 W$="AI^ATBIR CALL: " 

9 F$="NAME: " 

10 R$="QTH: " 

n E$="DATE/TIME: " 
12 G$="COMf^ENTS: " 
\h GOSUB 300 

15 GOSUB 300 

16 PRIhT: PRINT 

17 INPUr'DO YOU V/ISH TO ENTER ANY NEVi DATA?(Y OR N) ";Q$:PRINT 

18 IF 0$="N" THEN 50 

19 PRINT"ENTER YOUR DATA IN THE FOLLOWING FORMAT:": PRINT: PRINT 

20 PRINT "NNNN DATA 'A/^ATEUR CALL'^NAME^QTH.DATE/TIME^COMT^FNTS" 

21 PRINT: PRINT 

23 FOR X=l TO 150 

25 READ A$(X),N$(X),B$(X),C$(X),D$(X) 

26 IF A$(X)="ENDATA" THEN 29 

27 NEXT X 

28 REM X=0 

29 PRINT "THE NEXT DATA LINE TO BE ENTERED IS WMBER";999+X;"/' 

30 PRIM": PRINT 

35 PRI^T "NOW ENTER DATA, RESTART PROGRAM WITH RUN AND CR" 

36 PRINT "WHEN FINISHED." 
38 PR I NT: PR I NT: STOP 

5aPRINT:PRINT "ANSWER WITH 'END' IF THROUGH.": PR I NT 

51 PRINT "ENTER AMATEUR CALL YOU ARE S EARCH I NG" : PR I NT 

60 GOSUB 300 

90 INPUT \A% 

100 IF M$= "FND" GOTO 9999 

110 FOR I = 1 TO 500 

115 IF A$="ENDATA" GOTO 200 

120 READ A$,N$,B$,C$,D$:P$=RIGHT$(A$,LEN(M$)) 

130 IF A$="ENDATA" GOTO 200 

lUO IF M$<>P$ GOTO 200 

U5 PRINT:PRINT W$;TAB( 15); A$ 

150 X=LEN(N$): PRINT: PRINT F$;TAB( 15);N$ 

160 IF N$="*" GOTO 200 

170 X=LEN(B<?): PRINT R$;TAB( 15);B$ 

171 IF B$="*" GOTO 200 

180 X=LEN(C<;): PRINT E$;TAB( 15);C$ 

181 IF C$="*" GOTO 200 

190 X=LEN(D$): PRINT G$;TAB( 15);D$ 

191 IF D$="*" GOTO 200 
200 NEXT I 

210 GOSUB 300 

215 RESTORE: A$="l 000" 

220 GOTO 50 

230 GOTO 9999 

300 FOP 1= 1 TO 63: PR I NT"-";: NEXT I : PR I NT: RETURN 

1000 DATAWD8CV0, RALPH RUH/' LANCASTER, OHIO", 081379 1715, HELLO DA 

8000 DATA ENDATA,*,*,*,* -*■ '^ 

9999 PR|MT:PPINT "DON'T FORGET TO SAVE DATA ON TAPE": PR! NT: FND 
PFany 



